﻿Imports System.Configuration

Public Class ConexionADO
    Public Function GetCnx() As String
        Dim strCnx As String = "Data Source =192.0.0.189;initial Catalog=ControlVuelosDesarrollo;uid=sa;pwd=mine0210;"
        'Dim strCnx As String = "Data Source =192.0.0.189;initial Catalog=ControlVuelosMarsa;uid=sa;pwd=mine0210;"
        If strCnx Is String.Empty Then
            Return String.Empty
        Else
            Return strCnx
        End If
    End Function

    Public Function GetCnxSygnus() As String
        Dim strCnx As String = "Data Source =192.0.0.189;initial Catalog=Db_PlanillasTest;uid=sa;pwd=mine0210;"
        If strCnx Is String.Empty Then
            Return String.Empty
        Else
            Return strCnx
        End If
    End Function

    Public Shared Function GetCnxContabilidad() As String
        'Const strCnx As String = "Data Source =192.0.0.189;initial Catalog=ControlVuelosDesarrollo;uid=sa;pwd=mine0210;"
        Const strCnx As String = "Data Source =192.0.0.189;initial Catalog=Marsa2013;uid=sa;pwd=mine0210;"
        'Dim strCnx As String = "Data Source =JBLAS-PC;initial Catalog=ControlVuelosMarsa;uid=sa;pwd=sprusr;"
        If strCnx Is String.Empty Then
            Return String.Empty
        Else
            Return strCnx
        End If
    End Function
End Class
